home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / mac / oztex / mf.hqx / Metafont / mfinputs / title.mf < prev    next >
Text File  |  1994-08-19  |  1KB  |  29 lines
  1. % This makes a short font (caps and digits only)
  2.  
  3. font_coding_scheme:="ASCII caps and digits";
  4.  
  5. mode_setup; font_setup;
  6.  
  7. input romanu;  % upper case (majuscules)
  8. input romand;  % numerals
  9.  
  10. font_slant slant; font_x_height x_height#;
  11. if monospace: font_normal_space 9u#; % no stretching or shrinking
  12.  font_quad 18u#;
  13.  font_extra_space 9u#;
  14. else: font_normal_space 6u#+2letter_fit#;
  15.  font_normal_stretch 3u#; font_normal_shrink 2u#;
  16.  font_quad 18u#+4letter_fit#;
  17.  font_extra_space 2u#;
  18.  k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
  19.  ligtable "P": "T": "Y": "A" kern kk#;
  20.  ligtable "F": "V": "W": "A" kern if serifs: kkk# else: kk#\\fi,
  21.   "K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#;
  22.  ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#,
  23.    "V" kern k#, "Y" kern k#;
  24.  ligtable "A": if serifs: "R": fi
  25.   "C" kern k#, "O" kern k#, "G" kern k#, "U" kern k#, "Q" kern k#,
  26.   "L": "T" kern kk#, "Y" kern kkk#, "V" kern kk#, "W" kern kkk#;
  27.  ligtable "I": "I" kern -k#; fi % Richard III
  28. bye.
  29.